home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / DNS.lha / DNS1.0 < prev    next >
Encoding:
AmigaDOS Script File  |  1997-05-27  |  625 b   |  34 lines
  1. .key domain
  2.  
  3. ; $VER: DNS 1.00 (27.05.97) Domain Name Search - Copyright ©19970527 Amiguy@TheWorld.net
  4.  
  5. failat 15
  6.  
  7. Echo DNS 1.00 ©1997 Amiguy@TheWorld.net
  8.  
  9. if "<domain>" eq ""
  10.         echo usage: DNS any_domain_name.com
  11.         quit
  12. endif
  13.  
  14. Echo "Sending query on <domain> to InterNIC..."
  15.  
  16. HTTPJ >NIL: http://rs.internic.net/cgi-bin/whois?<domain> to T:DNS.temp
  17.  
  18. if warn
  19.         echo "! Not connected !"
  20.         quit
  21. endif
  22.  
  23. Echo Analyzing response...
  24.  
  25. search T:DNS.temp "No match for" >NIL:
  26.  
  27. if not warn
  28.         echo "<domain> is available! :)"
  29.         else
  30.         echo "<domain> is taken! :("
  31. endif
  32.  
  33. delete T:DNS.temp >NIL:
  34.